Skip to content

Instantly share code, notes, and snippets.

👀
Staring

Julian Ospald hasufell

👀
Staring
Block or report user

Report or block hasufell

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View HMonad.hs
-- |The GUI state.
data GUIState = GUIState { mygui :: MyGUI
, myview :: MyView
}
-- |Our own monad-ish type used to pass around our GUI state
-- and allow IO actions.
newtype HMonad a = HMonad { runHMonad :: GUIState -> IO (GUIState, a) }
View no-gold.patch
diff --git a/CMakeLists.txt b/CMakeLists.txt
index 029198f..67d7863 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -1191,18 +1191,6 @@ if(UNIX AND NOT APPLE)
set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -std=gnu89")
endif()
- # use ld.gold linker if available, could make optional
- execute_process(
View Paths.md

Paths and Files

We think of a Path type and a File type as two different concepts. Both need to be expressed in a way that allows us to reason about them.

What information to encode on path level?

Is the path absolute?

Important for thread safety. No real drawbacks. Should always be encoded.

View 1455805234-install-gnome-desktop_gobject-introspection-1.46.0-r1:1::gnome.out
=== Running ebuild phase killold as root:root...
=== Starting builtin_killold
=== Done builtin_killold
=== Completed ebuild phase killold
=== Running ebuild phases init saveenv as paludisbuild:paludisbuild...
=== Starting builtin_init
=== Done builtin_init
=== Starting builtin_saveenv
=== Done builtin_saveenv
=== Completed ebuild phases init saveenv
View DirTree.hs
----------------------------
--[ BASE TYPES ]--
----------------------------
-- |Weak type to distinguish between FilePath and FileName.
type FileName = String
-- |A simple wrapper to hold a base directory name, which can be either an
View DirTree.hs
{-# OPTIONS_HADDOCK ignore-exports #-}
module Data.DirTree where
import Control.Applicative
(
(<*>)
, (<$>)
, pure
)
View PageUtils.hs
-- |A magical hidden redirect page, that sends a POST request to the
-- given link.
redirectPostPage :: String -> DDXML
redirectPostPage link =
<html>
<head>
<style type="text/css"> form { display: none; } </style>
</head>
<body>
<form id="redirect" method="post" action=(pack link)>
View mail.patch
patch 9d63ed153bf8d64f4989b476eb1b3765e654ded3
Author: Julian Ospald <hasufell@hasufell.de>
Date: Sat Nov 28 16:49:37 CET 2015
* Don't send notification mail to the commenter
patch 9332570d1337856184ff794ed5d747316fce966c
Author: Julian Ospald <hasufell@hasufell.de>
Date: Sat Nov 28 16:08:18 CET 2015
* Adjust mail notification subscription defaults
When creating a new issue or making a comment, you are
View gist:f5472a2f72d2de5cae1b
for i in $(curl -s -X GET http://127.0.0.1:5984/issues/_all_docs | jsawk 'return this.rows' | jsawk -n 'out(this.id)' | grep -v '^_') ; do
curl -s -X PUT http://127.0.0.1:5984/issues/${i} -d "$(curl -s -X GET http://127.0.0.1:5984/issues/${i} | jsawk 'return {_id:this._id,_rev:this._rev,number:this.number,summary:this.summary,owner:this.owner,subscribers:[],description:this.description,tags:this.tags,bundle:this.bundle,created:this.created,updated:this.updated,is_closed:this.is_closed,repository:this.repository}')"
done
View ICal2.hs
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module ICal2 where
import qualified Data.ByteString.Lazy as DBL
import Data.CaseInsensitive
import Data.Default
import Data.Functor
You can’t perform that action at this time.