Clean up formatting

Author: thomashoneyman

examples/Example/Halogen/ComponentsInputs/Container.purs

@@ -32,8 +32,8 @@ component = Hooks.component \_ _ -> Hooks.do
           ]
       , HH.button
           [ HE.onClick \_ -> decrement ]
-          [ HH.text "- 1"]
+          [ HH.text "- 1" ]
       , HH.button
           [ HE.onClick \_ -> increment ]
-          [ HH.text "+ 1"]
+          [ HH.text "+ 1" ]
       ]

examples/Example/Hooks/Components.purs

@@ -36,8 +36,7 @@ previousValue = Hooks.component \_ _ -> Hooks.do
   prevState <- usePrevious state
 
   Hooks.pure do
-    HH.div
-      [ ]
+    HH.div_
       [ HH.h4_ [ HH.text "Previous Value" ]
       , HH.p_ [ HH.text "This example demonstrates a hook to persist a value from the previous render." ]
       , HH.text $ "The previous value of the state 'count' was: " <> show prevState
@@ -64,8 +63,7 @@ localStorage = Hooks.component \_ _ -> Hooks.do
       modifyState (over _Right (_ + 1))
 
   Hooks.pure do
-    HH.div
-      [ ]
+    HH.div_
       [ HH.text "Click on the button to clear from local storage"
       , HH.button
           [ HE.onClick \_ -> clearCount ]

examples/Example/Hooks/UseDebouncer.purs

@@ -1,8 +1,7 @@
 module Example.Hooks.UseDebouncer
   ( useDebouncer
   , UseDebouncer
-  )
-  where
+  ) where
 
 import Prelude
 
@@ -22,7 +21,7 @@ foreign import data UseDebouncer :: Type -> Hooks.HookType
 
 type UseDebouncer' a = UseRef (Maybe Debouncer) <> UseRef (Maybe a) <> Hooks.Pure
 
-instance newtypeUseDebouncer :: HookNewtype (UseDebouncer a) (UseDebouncer' a)
+instance HookNewtype (UseDebouncer a) (UseDebouncer' a)
 
 type Debouncer = { var :: AVar Unit, fiber :: Fiber Unit }
 

examples/Example/Hooks/UseInitializer.purs

@@ -1,8 +1,7 @@
 module Example.Hooks.UseInitializer
   ( useInitializer
   , UseInitializer
-  )
-  where
+  ) where
 
 import Prelude
 
@@ -12,7 +11,7 @@ import Halogen.Hooks as Hooks
 
 foreign import data UseInitializer :: Hooks.HookType
 
-instance hookUseInitializer :: HookNewtype UseInitializer UseEffect
+instance HookNewtype UseInitializer UseEffect
 
 useInitializer :: forall m. HookM m Unit -> Hook m UseInitializer Unit
 useInitializer initializer = Hooks.wrap hook

examples/Example/Hooks/UseLocalStorage.purs

@@ -3,8 +3,7 @@ module Example.Hooks.UseLocalStorage
   , UseLocalStorage
   , Key(..)
   , StorageInterface
-  )
-  where
+  ) where
 
 import Prelude
 
@@ -30,7 +29,7 @@ type UseLocalStorage' a =
     <> UseEffect
     <> Hooks.Pure
 
-instance newtypeUseLocalStorage :: HookNewtype (UseLocalStorage a) h
+instance HookNewtype (UseLocalStorage a) h
 
 type StorageInterface a =
   { key :: Key
@@ -42,7 +41,7 @@ type StorageInterface a =
 -- | A key for a cell in local storage
 newtype Key = Key String
 
-derive newtype instance eqKey :: Eq Key
+derive newtype instance Eq Key
 
 useLocalStorage
   :: forall m a

examples/Example/Hooks/UsePrevious.purs

@@ -1,8 +1,7 @@
 module Example.Hooks.UsePrevious
   ( usePrevious
   , UsePrevious
-  )
-  where
+  ) where
 
 import Prelude
 
@@ -18,7 +17,7 @@ foreign import data UsePrevious :: Type -> Hooks.HookType
 
 type UsePrevious' a = UseRef (Maybe a) <> UseEffect <> Hooks.Pure
 
-instance newtypeUsePrevious :: HookNewtype (UsePrevious a) (UsePrevious' a)
+instance HookNewtype (UsePrevious a) (UsePrevious' a)
 
 usePrevious :: forall m a. MonadAff m => Eq a => a -> Hook m (UsePrevious a) (Maybe a)
 usePrevious value = Hooks.wrap hook
@@ -27,7 +26,7 @@ usePrevious value = Hooks.wrap hook
   hook = Hooks.do
     prev /\ ref <- Hooks.useRef Nothing
 
-    Hooks.captures { } Hooks.useTickEffect do
+    Hooks.captures {} Hooks.useTickEffect do
       liftEffect $ Ref.write (Just value) ref
       pure Nothing
 

examples/Example/Hooks/UseWindowWidth.purs

@@ -1,8 +1,7 @@
 module Example.Hooks.UseWindowWidth
   ( useWindowWidth
   , UseWindowWidth
-  )
-  where
+  ) where
 
 import Prelude
 
@@ -23,7 +22,7 @@ foreign import data UseWindowWidth :: Hooks.HookType
 
 type UseWindowWidth' = UseState (Maybe Int) <> UseEffect <> Hooks.Pure
 
-instance newtypeUseWindowWidth :: HookNewtype UseWindowWidth UseWindowWidth'
+instance HookNewtype UseWindowWidth UseWindowWidth'
 
 useWindowWidth :: forall m. MonadAff m => Hook m UseWindowWidth (Maybe Int)
 useWindowWidth = Hooks.wrap hook

examples/Example/Main.purs

@@ -54,12 +54,12 @@ examples =
   index = Hooks.component \_ _ -> Hooks.pure do
     HH.div_
       [ HH.h1_
-        [ HH.text "Halogen Hooks" ]
+          [ HH.text "Halogen Hooks" ]
       , HH.p_
-        [ HH.text "See the Halogen Hooks "
-        , HH.a
-          [ HP.href "https://github.com/thomashoneyman/purescript-halogen-hooks" ]
-          [ HH.text "README" ]
-        , HH.text " for details."
-        ]
+          [ HH.text "See the Halogen Hooks "
+          , HH.a
+              [ HP.href "https://github.com/thomashoneyman/purescript-halogen-hooks" ]
+              [ HH.text "README" ]
+          , HH.text " for details."
+          ]
       ]

examples/examples.dhall

@@ -3,12 +3,15 @@ in conf //
   { dependencies =
       conf.dependencies #
         [ "argonaut"
-        , "console"
-        , "debug"
+        , "avar"
+        , "datetime"
         , "effect"
+        , "either"
         , "halogen-storybook"
-        , "psci-support"
+        , "profunctor-lenses"
         , "random"
+        , "web-events"
+        , "web-storage"
         ]
   , sources =
       conf.sources #

spago.dhall

@@ -1,7 +1,33 @@
 { name = "halogen-hooks"
 , license = "MIT"
 , repository = "https://github.com/thomashoneyman/purescript-halogen-hooks"
-, dependencies = [ "halogen" ]
+, dependencies =
+  [ "aff"
+  , "arrays"
+  , "bifunctors"
+  , "effect"
+  , "exceptions"
+  , "foldable-traversable"
+  , "foreign-object"
+  , "free"
+  , "freeap"
+  , "halogen"
+  , "halogen-subscriptions"
+  , "maybe"
+  , "newtype"
+  , "ordered-collections"
+  , "parallel"
+  , "partial"
+  , "prelude"
+  , "refs"
+  , "tailrec"
+  , "transformers"
+  , "tuples"
+  , "unsafe-coerce"
+  , "unsafe-reference"
+  , "web-dom"
+  , "web-html"
+  ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs" ]
 }