Correct exdown extraction to fix CI

Author: smelc

slides/Course03.hs

@@ -49,7 +49,7 @@ lastv v1 v2 =
     (Beta, SemVer _ _ _) -> v2
     (SemVer x1 _ _, SemVer x2 _ _)   | x1 < x2             -> v2
     (SemVer x1 y1 _, SemVer x2 y2 _) | x1 == x2 && y1 < y2 -> v2
-    _ -> error "I'm too lazy"
+    _ -> error "TODO"
 
 data Sign = Negative | Zero | Positive
 
@@ -89,14 +89,13 @@ instance Functor Tree where
   fmap f (Node x children) = Node (f x) (map (fmap f) children)
 
 
--- | 'Word16' is a zero or positive number
-data Operation = Debit Word16 | Credit Word16
-
+data Operation = Debit Int | Credit Int
+balance = undefined
 
 wordCount :: [[String]] -> Int
 wordCount files = foldr (\words soFar -> (length words) + soFar) 0 files
 
-balance' :: [Operation] -> Word16
+balance' :: [Operation] -> Int
 balance' = foldr (\op soFar -> toInt op + soFar) 0
   where
     toInt = \case Debit x -> -x; Credit x -> x

slides/course-03.md

@@ -287,7 +287,7 @@ instance Functor Tree where
 foldr :: Foldable t => (a -> b -> b) -> b -> t a -> b
 ```
 
-<!-- exdown-skip 1 2 7 8 -->
+<!-- exdown-skip 1 2 5 6 -->
 ```hs
 wordCount :: [[String]] -> Int
 wordCount files = undefined

slides/extract_hs.sh

@@ -13,6 +13,7 @@ do
   hs_module_name=${hs_module_name^}  # Put first character uppercase
   f_hs="${hs_module_name}.hs"
   rm -Rf "$f_hs"
+  echo "$EXDOWN -f hs $f > $f_hs"
   $EXDOWN -f hs $f > "$f_hs" || exit 1  # exdown is https://github.com/smelc/exdown
   echo "Written $f_hs"
 done