Skip to content

Instantly share code, notes, and snippets.

View vilu's full-sized avatar

Viktor Lund vilu

14 followers · 36 following
  • Berlin
View GitHub Profile
@vilu
vilu / gist:47560cfa287f1e7664800763f6d4dfe5
Created February 7, 2019 11:07
package com.example.http4splayground.services
import java.util.Date
import java.util.concurrent.TimeUnit
import cats._
import cats.data.StateT
import cats.effect.{ExitCode, IO, IOApp}
import cats.implicits._
import cats.mtl.MonadState
@vilu
vilu / gist:6d7afd9c564f5caf01e1631c28c575a7
Created September 18, 2018 19:21
-- | The Halogen component eval effect monad.
newtype HalogenM' s act ps o m a = HalogenM (Free (HalogenF s act ps o m) a)
-- | The Halogen component eval effect monad, for components constructed with
-- | the `component` smart constructor. This is more constrained than
-- | `HalogenM'` as it only allows for query algebra actions (kind
-- | `Type -> Type` rather than `Type`).
type HalogenM s act = HalogenM' s (act Unit)
@vilu
vilu / gist:199800172d827d9a546910f5ffc81e37
Created September 18, 2018 19:16
eval :: Query ~> H.HalogenM State Query () Output Aff
eval (LoginRequest next) = do
s <- H.get
responseRaw <- H.liftAff $ AX.post AXResponse.json ("http://localhost:8080/api/users/login") (mkRequest s)
responseE <- pure $ parseResponse $ responseRaw.response
pure next
@vilu
vilu / record problem
Created September 9, 2018 13:43
module Main where
import Prelude
data Foo = Foo { bar :: String }
fun1 :: Foo -> String
fun1 f = f.bar
@vilu
vilu / gist:754335245789df3b3f95a8f7f3212e0c
Created July 22, 2018 10:03
module Kata.CubeFinder where
-- Your task is to construct a building which will be a pile of n cubes. The cube at the bottom will have a volume of n^3, the cube above will have volume of (n-1)^3 and so on until the top which will have a volume of 1^3.
-- You are given the total volume m of the building. Being given m can you find the number n of cubes you will have to build?
-- The parameter of the function findNb (find_nb, find-nb, findNb) will be an integer m and you have to return the integer n such as n^3 + (n-1)^3 + ... + 1^3 = m if such a n exists or -1 if there is no such n.
-- Examples:
@vilu
vilu / gist:7508d35ae5675aea0e08
Created December 18, 2014 16:30
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
@vilu
vilu / gist:0e754f55f8619a03dcfb
Created September 23, 2014 08:17
Elran javascript code
<!-- begin SnapEngage code -->
<script type="text/javascript">
(function() {
var se = document.createElement('script'); se.type = 'text/javascript'; se.async = true;
se.src = '//storage.googleapis.com/code.snapengage.com/js/38ca6012-8851-42d7-956b-8b99871c94f9.js';
var done = false;
se.onload = se.onreadystatechange = function() {
if (!done&&(!this.readyState||this.readyState==='loaded'||this.readyState==='complete')) {
done = true;
/* Place your SnapEngage JS API code below */
@vilu
vilu / gist:11f4a6e5f6b30ff53584
Created July 3, 2014 10:10
----- Build.scala
import sbt._
import Keys._
import org.scalatra.sbt._
import org.scalatra.sbt.PluginKeys._
import com.mojolly.scalate.ScalatePlugin._
import ScalateKeys._
object CaptureBuild extends Build {
@vilu
vilu / gist:9874139
Created March 30, 2014 15:08
> compile
[info] Generating /Users/viktorlund/code/scala/analytics/target/scala-2.10/resource_managed/main/rebel.xml.
[info] Compiling Templates in Template Directory: /Users/viktorlund/code/scala/analytics/src/main/webapp/WEB-INF/templates
SLF4J: Failed to load class "org.slf4j.impl.StaticLoggerBinder".
SLF4J: Defaulting to no-operation (NOP) logger implementation
SLF4J: See http://www.slf4j.org/codes.html#StaticLoggerBinder for further details.
[info] Compiling 2 Scala sources to /Users/viktorlund/code/scala/analytics/target/scala-2.10/classes...
[error] /Users/viktorlund/code/scala/analytics/src/main/scala/ScalatraBootstrap.scala:5: object mongodb is not a member of package com
[error] import com.mongodb.casbah.Imports._
[error] ^
@vilu
vilu / gist:9695710
Created March 21, 2014 20:30
"pool-8-thread-5"@11,895 in group "main": RUNNING
<init>():8, AnalyticsServlet {com.github.vilu.analytics}
init():7, ScalatraBootstrap
configureCycleClass():67, ScalatraListener {org.scalatra.servlet}
contextInitialized():23, ScalatraListener {org.scalatra.servlet}
callContextInitialized():771, ContextHandler {org.eclipse.jetty.server.handler}
callContextInitialized():424, ServletContextHandler {org.eclipse.jetty.servlet}
startContext():763, ContextHandler {org.eclipse.jetty.server.handler}
startContext():249, ServletContextHandler {org.eclipse.jetty.servlet}
startContext():1250, WebAppContext {org.eclipse.jetty.webapp}