Force layout test/experiment with images. Fixes the original example, which uses mixed http/https content.
If viewing on Github as a Gist, replace https://gist.github.com with http://bl.ocks.org.
Sources:
Force layout test/experiment with images. Fixes the original example, which uses mixed http/https content.
If viewing on Github as a Gist, replace https://gist.github.com with http://bl.ocks.org.
Sources:
Meeting Agenda:
| someMaybe :: UserID | |
| someVariable :: Html | |
| simpleRenderFunction :: (Int -> String) -> Html | |
| -- For example, string is a user name: is this a known user? | |
| testCondition :: MonadIO m => String -> m Bool | |
| -- Takes into account the result from the testCondition function. | |
| complicatedRenderFunction :: (Int -> String -> Bool) -> Html | |
| complicatedRenderFunction a s b = case b of .... |
| ------------------------------------------------ | |
| Version that works: | |
| ------------------------------------------------ | |
| -- | Resources passed to featureResources in constructor | |
| getVoteResource = (resourceAt "/packages/vote") { | |
| resourceDesc = [(GET, "Get the number of votes a package has.")], | |
| resourceGet = [("json", returnOne)] | |
| } | |
| -- | Trivial json response |
| ---------------- Terminal 1 ---------------------------- | |
| ╰─$ sudo docker -d | |
| INFO[0000] Listening for HTTP on unix (/var/run/docker.sock) | |
| INFO[0000] [graphdriver] using prior storage driver "devicemapper" | |
| INFO[0000] Loading containers: start. | |
| ................ | |
| INFO[0001] Loading containers: done. | |
| INFO[0001] Daemon has completed initialization | |
| INFO[0001] Docker daemon commit=628c396 execdriver=native-0.2 graphdriver=devicemapper version=1.7.0-dev | |
| INFO[0016] POST /v1.19/containers/create |
| --------------- First Terminal ------------------------------ | |
| ╰─$ cabal install -j --enable-tests | |
| Resolving dependencies... | |
| Configuring hackage-server-0.5.0... | |
| Building hackage-server-0.5.0... | |
| Preprocessing executable 'hackage-server' for hackage-server-0.5.0... | |
| line-map.c: file "<command-line>" left but not entered | |
| line-map.c: file "<command-line>" left but not entered | |
| [123 of 123] Compiling Main ( Main.hs, dist/dist-sandbox-56da88b/build/hackage-server/h | |
| ackage-server-tmp/Main.o ) |
| class CustomClass a where | |
| add :: a -> a -> a | |
| mul :: a -> a -> a | |
| newtype ZModZ7 = ZModZ7 Integer deriving (Eq, Show) | |
| instance CustomClass ZModZ7 where | |
| add a b = mod (a + b) 7 -- Here, 'a' matches an entire (ZModZ7 i), and mod won't function on the custom type. | |
| mul a b = mod (a * b) 7 -- Based on discussion with monochrom@Freenode, equivalent to | |
| -- = mod ( (ZModZ7 a') * (ZModZ7 b') ) |