Install GHC via stack

.github/workflows/ci.yml

@@ -12,6 +12,8 @@ jobs:
         uses: haskell-actions/setup@v2
         with:
           enable-stack: true
+          stack-setup-ghc: true
+          stack-no-global: true
 
       - name: Test
         run: .github/run.sh --no-lint

README.md

@@ -34,6 +34,11 @@ To use a language extension
 GHCi> :set -XOverloadedStrings
 ```
 
+To load a file
+```
+GHCi> :load path/to/file
+```
+
 To show type of something
 ```
 GHCi> :t variable

allergies/src/Allergies.hs

@@ -22,4 +22,4 @@ allergies score = [allergens !! i | i <- [0 .. n], isAllergic i]
     isAllergic = B.testBit score
 
 isAllergicTo :: Allergen -> Int -> Bool
-isAllergicTo allergen score = allergen `elem` allergies score
+isAllergicTo = (. allergies) . elem

crypto-square/src/CryptoSquare.hs

@@ -22,10 +22,9 @@ normalize :: String -> String
 normalize = map C.toLower . filter C.isAlphaNum
 
 size :: Int -> Int
-size n = col
+size n = ceiling $ sqrt x
   where
     x = fromIntegral n :: Float
-    col = ceiling $ sqrt x
 
 padR :: Int -> String -> String
 padR n xs = xs ++ replicate (n - x) ' '