Akii
/ elescore.nix
Created
July 27, 2018 12:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| self: super: | |
| let | |
| versions = import ../versions.nix; | |
| in | |
| { | |
| elescore = import (builtins.fetchGit { | |
| url = https://github.com/Akii/elescore.git; | |
| rev = versions.elescoreRev; | |
| }); | |
| } |
Akii
/ elescore.nix
Created
July 27, 2018 12:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| self: super: | |
| { | |
| elescore = import (builtins.fetchGit { | |
| url = https://github.com/Akii/elescore.git; | |
| rev = "d4a305800157d4a1109f7fdaeda8f2814ddd002d"; | |
| }); | |
| } |
Akii
/ etag idea.nix
Created
July 26, 2018 17:32
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| locations."/" = { | |
| root = "${pkgs.elescore-client}/"; | |
| extraConfig = '' | |
| etag off; | |
| add_header etag "elescore-client-${pkgs.elescore-client.version}"; | |
| ''; | |
| }; |
Akii
/ default.nix
Created
July 22, 2018 13:39
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| with (import <nixpkgs> {}); | |
| with (import (builtins.fetchTarball https://github.com/moretea/yarn2nix/archive/master.tar.gz) { inherit pkgs; }); | |
| rec { | |
| elescore-client = mkYarnPackage { | |
| name = "elescore-client"; | |
| src = ./.; | |
| packageJson = ./package.json; | |
| yarnLock = ./yarn.lock; | |
| yarnNix = ./elescore-client.nix; | |
| }; |
Akii
/ IsThatIt.hs
Created
July 20, 2018 18:09
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /Users/akii/Projects/blah/src/NoPassword.hs:118:45: error: | |
| • Couldn't match type ‘a0’ with ‘Yesod.Auth.Piece’ | |
| ‘a0’ is untouchable | |
| inside the constraints: MonadAuthHandler m m1 | |
| bound by a type expected by the context: | |
| Yesod.Auth.Method | |
| -> [Yesod.Auth.Piece] -> AuthHandler m TypedContent | |
| at src/NoPassword.hs:118:23-58 | |
| Expected type: Yesod.Auth.Method | |
| -> [Yesod.Auth.Piece] -> m1 TypedContent |
Akii
/ default.nix
Created
April 18, 2018 20:46
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| let | |
| config = { | |
| packageOverrides = pkgs: rec { | |
| haskellPackages = pkgs.haskellPackages.override { | |
| overrides = haskellPackagesNew: haskellPackagesOld: rec { | |
| datetime = pkgs.haskell.lib.dontCheck haskellPackagesOld.datetime; | |
| }; | |
| }; | |
| }; | |
| }; |
Akii
/ Podest.html
Created
February 25, 2018 08:47
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <head> | |
| <style> | |
| body { | |
| padding: 5px; | |
| } | |
| .podest { | |
| width: 140px; | |
| height: 110px; | |
| padding: 5px; |
Akii
/ gist:3393909ed3b0e3c5b3a36b0fd5ac3845
Created
June 12, 2017 17:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| data Const k a = Const k | |
| deriving (Eq, Show) | |
| instance Functor (Const k) where | |
| fmap _ (Const k) = Const k | |
| instance Monoid k => Applicative (Const k) where | |
| pure = const (Const mempty) | |
| _ <*> Const k = Const k |
Akii
/ WhatsBetter.hs
Created
June 5, 2017 14:01
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| registerUser :: UserName -> EmailAddress -> RegistrationAction () | |
| registerUser uname email = do | |
| mst <- gets aggState | |
| case mst of | |
| Nothing -> raise (UserRegistered uname email) | |
| Just st -> do | |
| when (userExists st) (throwError UserAlreadyRegistered) | |
| when (emailExists st) (throwError EmailAddressExists) | |
| raise (UserRegistered uname email) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- kay, I get it because it's function chaining | |
| foo = do | |
| name <- getLine | |
| name <- getLine | |
| putStrLn name | |
| return () | |
| -- looks like I can mutat / override `a` | |
| someFunction :: Int -> Int | |
| someFunction a = |