Formatting & restructuring

Author: wenkokke

data/playground/haskell/fib.hs renamed to data/playground/haskell/Function.hs

@@ -19,7 +19,7 @@ wot False = crash
 zot = undefined
 
 pot :: a
-pot = 
+pot =
     let kettle = undefined
     in kettle
 

data/playground/haskell/RFCs.hs

@@ -0,0 +1,14 @@
+-- RFC: What should "arg" match?
+fst :: (a, b) -> a
+fst tup@(x, y) = x
+--  ^^^^^^^^^^     <- 1️⃣ the whole pattern
+--  ^^^            <- 2️⃣ only the name of the whole argument, if given
+--  ^^^  ^  ^      <- 3️⃣ all names in the pattern
+
+-- RFC: What should "branch" match?
+foo = bar
+  where
+    bar = 1
+--   1️⃣ `foo = bar` and `bar = 1`
+--   2️⃣ `foo = bar where bar = 1`
+--   3️⃣ `foo = bar where bar = 1` and `bar = 1`

queries/haskell.function.scm

@@ -408,4 +408,4 @@
     )
   )
   .
-)
+)