[trivia
martin.hofmann@uni-bamberg.de**20090525150349] hunk ./expl/Examples.hs 88
-swap, switch, repfst,replst :: [a] -> [a]
+swap, switch, multfst,multlst :: [a] -> [a]
hunk ./expl/Examples.hs 105
-repfst [] = []
-repfst [a] = [a]
-repfst [a,b] = [a,a]
-repfst [a,b,c] = [a,a,a]
-repfst [a,b,c,d] = [a,a,a,a]
---repfst [a,b,c,d,e] = [a,a,a,a,a]
---repfst [a,b,c,d,e,f] = [a,a,a,a,a,a]
+multfst [] = []
+multfst [a] = [a]
+multfst [a,b] = [a,a]
+multfst [a,b,c] = [a,a,a]
+multfst [a,b,c,d] = [a,a,a,a]
+--multfst [a,b,c,d,e] = [a,a,a,a,a]
+--multfst [a,b,c,d,e,f] = [a,a,a,a,a,a]
hunk ./expl/Examples.hs 113
-replst [] = []
-replst [a] = [a]
-replst [a,b] = [b,b]
-replst [a,b,c] = [c,c,c]
-replst [a,b,c,d] = [d,d,d,d]
-replst [a,b,c,d,e] = [e,e,e,e,e]
---replst [a,b,c,d,e,f] = [f,f,f,f,f,f]
+multlst [] = []
+multlst [a] = [a]
+multlst [a,b] = [b,b]
+multlst [a,b,c] = [c,c,c]
+multlst [a,b,c,d] = [d,d,d,d]
+--multlst [a,b,c,d,e] = [e,e,e,e,e]
+--multlst [a,b,c,d,e,f] = [f,f,f,f,f,f]
hunk ./quickstart 3
-runhaskell Setup configure --prefix=$HOME --user
-runhaskell Setup build
-runhaskell Setup install
+runghc Setup configure --prefix=$HOME --user
+runghc Setup build
+runghc Setup install --user
hunk ./src/Logging/Logger.hs 59
-data LogEntry = LE Priority Logger Message 
+data LogEntry = LE Priority Logger Message deriving (Show)
hunk ./src/Logging/Logger.hs 77
+     deriving (Show)
hunk ./src/Syntax/Expressions.hs 1196
+           
+
+rhs1 = TListE [TVarE (mkName "b") (VarT (mkName "a")),TVarE (mkName "b") (VarT (mkName "a"))] (AppT ListT (VarT (mkName "a")))
+rhs2 = TListE [TVarE (mkName "c") (VarT (mkName "a")),TVarE (mkName "c") (VarT (mkName "a"))] (AppT ListT (VarT (mkName "a")))
+