feat: haskell stuff

modules/dev/haskell/default.nix

@@ -0,0 +1,12 @@
+{ pkgs, ... }:
+let hie = pkgs.all-hies.selection { selector = p: { inherit (p) ghc865; }; };
+in {
+  home-manager.users.adrielus.home = {
+    file.".ghci".source = ./ghci;
+    # file.".stack/config.yaml".source = ./stack.yaml;
+
+    packages = with pkgs;
+      [ ghc ghcid hlint cabal-install snack stack hie ]
+      ++ (with haskellPackages; [ brittany hoogle hpack pointfree pointful ]);
+  };
+}

modules/dev/haskell/ghci

@@ -0,0 +1,10 @@
+:def paste \_ -> do { paste <- System.Process.readProcess "pbpaste" [] ""; let cmd = if '\n' `elem` paste then ":{\ntype Ö = ()\n" ++ paste ++ "\n:}" else paste in putStrLn ("\SOH\ESC[33m\STX" ++ paste ++ "\SOH\ESC[0m\STX") >> return (":cmd return " ++ show cmd) }
+:def paste-quiet \_ -> do { paste <- System.Process.readProcess "pbpaste" [] ""; let cmd = if '\n' `elem` paste then ":{\ntype Ö = ()\n" ++ paste ++ "\n:}" else paste in return (":cmd return " ++ show cmd) }
+
+:def hoogle     \str -> return $ ":! hoogle search --color --count=10 " ++ show str
+:def hoogle-all \str -> return $ ":! hoogle search --color "            ++ show str
+:def doc        \str -> return $ ":! hoogle search --color --info "     ++ show str
+
+:def pointfree \str -> return $ ":! pointfree " ++ show str
+:def pf        \str -> return $ ":! pointfree " ++ show str
+:def pointful  \str -> return $ ":! pointful " ++ show str

modules/dev/haskell/stack.yaml

@@ -0,0 +1,5 @@
+templates:
+  params:
+    author-name: "Matei Adriel"
+    author-email: "rafaeladriel11@gmail.com"
+    github-username: "Mateiadrielrafael"