Stylish Haskell

flake.nix

@@ -35,6 +35,7 @@
             haskellPackages.haskell-language-server # you must build it with your ghc to work
             ghcid
             cabal-install
+            stylish-haskell
           ];
           inputsFrom = map (__getAttr "env") (__attrValues self.packages.${system});
         };

lib/DND.hs

@@ -5,7 +5,7 @@ module DND
 , module DND.Dice
 ) where
 
+import           DND.Bob
+import           DND.Dice
 import           DND.Sheet.Content
 import           DND.Sheet.Parser
-import DND.Dice
-import DND.Bob

lib/DND/Bob.hs

@@ -3,10 +3,10 @@ module DND.Bob (bob) where
 import           DND.Sheet.Content
 
 bob :: Character
-bob = Character {skills=testSkills, trivia=testTrivia, stats=testStats, spells=Just testSpells, preamble=testPreamble, feats=Just testFeatures}
+bob = Character {skills = testSkills, trivia = testTrivia, stats = testStats, spells = Just testSpells, preamble = testPreamble, feats = Just testFeatures}
 
 testStats :: [Stat]
-testStats = [strStat,dexStat,conStat,intStat,wisStat,chaStat]
+testStats = [strStat, dexStat, conStat, intStat, wisStat, chaStat]
 
 testPreamble :: Preamble
 testPreamble = Preamble 1 "Bob" "Elf" "Fighter" False

lib/DND/Sheet/Content.hs

@@ -11,11 +11,10 @@ module DND.Sheet.Content
 , SpellComponent(..)
 , Feature(..)
 , FeatInfo(..)
-, fiets
 ) where
 
-import Data.Aeson ( FromJSON, ToJSON )
-import GHC.Generics ( Generic )
+import           Data.Aeson   (FromJSON, ToJSON)
+import           GHC.Generics (Generic)
 
 instance FromJSON Character
 instance ToJSON Character
@@ -84,11 +83,6 @@ data Skill = Skill
            , relatedStat :: String
            } deriving ( Show, Eq, Ord, Generic)
 
-fiets = Skill { skillName = "Stuff"
-              , skillMod = None
-              , relatedStat = "Strength"
-              }
-
 data Stat = Stat
           { statName   :: String
           , score      :: Int

lib/DND/Sheet/Parser.hs

@@ -8,13 +8,13 @@ module DND.Sheet.Parser
 , listSkillNames
 ) where
 
-import Data.Aeson
-import DND.Sheet.Content
-import DND.Bob(bob)
 import           Control.Monad
+import           Data.Aeson
 import qualified Data.ByteString.Lazy      as B
 import qualified Data.ByteString.Lazy.UTF8 as BSU
 import           Data.Maybe                (fromJust)
+import           DND.Bob                   (bob)
+import           DND.Sheet.Content
 
 --getSheet :: FilePath -> IO B.ByteString
 --getSheet = B.readFile