Skip to content

Instantly share code, notes, and snippets.

View codedmart's full-sized avatar

Brandon Martin codedmart

View GitHub Profile
@codedmart
codedmart / Auth.hs
Last active January 19, 2016 17:31
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
@codedmart
codedmart / Main.hs
Last active January 16, 2016 22:51
-- Object (fromList [("paging_info",Object (fromList [("page_count",Number 1.0),("current_page",Number 1.0),("entity_count",Number 1.0),("entities_per_page",Number 1.0)])),("entities",Array [Object (fromList [("id",Number 4482.0),("type",String "HumanUser"),("login",String "person")])])])
findOne :: (ToJSON a, FromJSON b, AsValue b) => a -> App b
findOne sParams = do
r <- postShotgun sParams
let r' = r ^? nth 0 . key "entities" . _Array . nth 0
return r
-- Could not deduce (AsValue (Vector Value))
-- arising from a use of ‘nth’
authUser :: UserParams -> App ShotgunParams
authUser userParams = do
AppConfig _ as <- ask
let sParams = shotgunLogin userParams
r <- liftIO $ postWith defOpts (unpack $ shotgunUrl as) (toJSON sParams) `E.catch` handler
return sParams
where
handler :: HttpException -> App a
handler e@(StatusCodeException _ _ _) = serverErr $ ServerError "Oops!"
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/otool -L ./cups-2.0.4/ppdc/genstrings
./cups-2.0.4/ppdc/genstrings:
/nix/store/gsp7q5sazfaipqb4yqra04p2rri01675-CF-855.17/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation (compatibility version 150.0.0, current version 855.15.0)
/nix/store/7qbk9dxf4pxxdd8hn95i29qskchlgh4y-configd-453.19/Library/Frameworks/SystemConfiguration.framework/SystemConfiguration (compatibility version 0.0.0, current version 0.0.0)
/nix/store/kn1i9a6si3kskj25vsmv0ihh9rfgrdi4-Libsystem-1197.1.1/lib/libSystem.dylib (compatibility version 1.0.0, current version 1197.1.1)
/nix/store/kn1i9a6si3kskj25vsmv0ihh9rfgrdi4-Libsystem-1197.1.1/lib/libresolv.9.dylib (compatibility version 0.0.0, current version 0.0.0)
/System/Library/Frameworks/Security.framework/Versions/A/Security (compatibility version 1.0.0, current version 57337.20.44)
/nix/store/gmzglzhdgbjx80nizcxxyy5r8hp072d3-zlib-1.2.8/lib/libz.dylib (compatibility version 1.0.0
-- With `build-use-chroot = relaxed;` in config.nix
Compiling ppdpo.cxx...
Linking ppdpo...
Compiling genstrings.cxx...
Linking genstrings...
Generating localization strings...
genstrings(82861,0x7fff76199000) malloc: *** error for object 0x7fc26ae162f8: Non-aligned pointer being freed
*** set a breakpoint in malloc_error_break to debug
/nix/store/nnhl5b4mzgsmincz05jns5ngx2mjsdai-bash-4.3-p42/bin/bash: line 1: 82861 Abort trap: 6 ./genstrings > sample.c
Makefile:241: recipe for target 'genstrings' failed
these derivations will be built:
/nix/store/xkqism9xcccacqbcvncg6rfsk9nldmrg-cups-2.0.4.drv
/nix/store/shqbjfj9r1xh81irw72jzbv2j3yq9akg-phantomjs-2.0.0-20150528.drv
download-from-binary-cache.pl: could not download ‘https://cache.nixos.org/w7r98v9bdyl730if95pm0a83439xsabr.narinfo’ (Curl error 60)
download-from-binary-cache.pl: could not download ‘https://cache.nixos.org/j9iy0vwwr23m95jjqjh6pjli2jci73xg.narinfo’ (Curl error 60)
building path(s) ‘/nix/store/j9iy0vwwr23m95jjqjh6pjli2jci73xg-cups-2.0.4’
dyld: Library not loaded: /usr/lib/system/libcache.dylib
Referenced from: /nix/store/kn1i9a6si3kskj25vsmv0ihh9rfgrdi4-Libsystem-1197.1.1/lib/libSystem.dylib
Reason: no suitable image found. Did find:
/usr/lib/system/libcache.dylib: stat() failed with errno=1
@codedmart
codedmart / Error
Last active January 14, 2016 16:50
/Users/bmartin/Work/pixomondo/vendor-tool-api/src/Main.hs:48:14:
Couldn't match type ‘t0 (ExceptT ServantErr m0)’ with ‘App’
Expected type: App Value
Actual type: t0 (ExceptT ServantErr m0) Value
In the expression: serverErr $ ServerError "Oops!"
In an equation for ‘name’: name n = serverErr $ ServerError "Oops!"
In an equation for ‘apiServer’:
apiServer
= appVersion :<|> name
where
Compiling ppdc.cxx...
Linking ppdc...
Compiling ppdhtml.cxx...
Linking ppdhtml...
Compiling ppdi.cxx...
Linking ppdi...
Compiling ppdmerge.cxx...
Linking ppdmerge...
Compiling ppdpo.cxx...
Linking ppdpo...
import React from 'react';
import { RedirectIfLoggedIn } from '../common/auth';
import ReactAbstractComponent from '../lib/ReactAbstractComponent';
class Login extends ReactAbstractComponent {
handleLoginSubmitted = (user) => {
const {login} = this.context.actions;
login(user);
/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang++ -c -pipe -DQT_NO_GRAPHICSVIEW -DQT_NO_GRAPHICSEFFECT -DQT_NO_STYLESHEET -DQT_NO_STYLE_CDE -DQT_NO_STYLE_CLEA
NLOOKS -DQT_NO_STYLE_MOTIF -DQT_NO_STYLE_PLASTIQUE -O2 -isysroot /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.11.sdk -mmacosx-version-min=10.6 -Wall -W -fP
IE -I../../../mkspecs/macx-clang -I. -o openssl.o openssl.cpp
openssl.cpp:42:10: fatal error: 'openssl/opensslv.h' file not found
#include <openssl/opensslv.h>
^
1 error generated.
Makefile:225: recipe for target 'openssl.o' failed
make: *** [openssl.o] Error 1
OpenSSL disabled.